home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmCM_102_App < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.9 KB  |  90 lines
  1. // %filename% -- application class 
  2. // Created %date% %time% by AppMaker 
  3.  
  4. #include "U%appname%.h"
  5. #ifndef __FONTS__
  6.     #include <Fonts.h>
  7. #endif
  8. #include "ResourceDefs.h"
  9.  
  10. const ResType kDocFileType = 'TEXT';     // main File-type for this app
  11.  
  12. #pragma segment AInit
  13. /*----------*/
  14. pascal void T%appname%App::I%appname%App (void)
  15. {
  16.     inherited::IApplication (kDocFileType);
  17.     %for each menu gen addResMenu%
  18.  
  19.     %for each dialog gen createModeless%
  20.  
  21. } /* I%appname%App */
  22.  
  23. #pragma segment AOpen
  24. /*----------*/
  25. pascal TDocument* T%appname%App::DoMakeDocument    (CmdNumber    /* itsCmdNumber */)
  26. {
  27.     T%appname%Doc        *%appname%Doc;
  28.     
  29.     %appname%Doc = new T%appname%Doc;
  30.     FailNIL (%appname%Doc);
  31.     %appname%Doc->I%appname%Doc ();
  32.     return (%appname%Doc);
  33. } /* DoMakeDocument */
  34.  
  35. #pragma segment ARes
  36. /*----------*/
  37. pascal void T%appname%App::DoSetupMenus ()
  38. {
  39.     inherited::DoSetupMenus ();
  40.  
  41.     %for each menu gen enableItems%
  42.  
  43. } /* DoSetupMenus */
  44.  
  45. #pragma segment ASelCommand
  46. /*----------*/
  47. pascal TCommand* T%appname%App::DoMenuCommand    (CmdNumber        aCmdNumber)
  48. {
  49.     TCommand        *result;
  50.     short            menu;
  51.     short            item;
  52.     
  53.     result = gNoChanges;
  54.     if (aCmdNumber < 0) {
  55.         CmdToMenuItem (aCmdNumber, &menu, &item);
  56.     } else {
  57.         switch (aCmdNumber) {
  58.             case 0:
  59.                 break;
  60.             %for each menu gen handleItems%
  61.  
  62.             default:
  63.                     result = inherited::DoMenuCommand (aCmdNumber);
  64.                 break;
  65.         } /*switch*/
  66.     }
  67.     return (result);
  68. } /* DoMenuCommand */
  69.  
  70. %for each menu gen doItems%
  71. #if qInspector
  72. #pragma segment AFields
  73. /*----------*/
  74. pascal void T%appname%App::Fields    (
  75.                         pascal void (*DoToField)
  76.                                 (StringPtr        fieldName, 
  77.                                  Ptr            fieldAddr, 
  78.                                  short            fieldType, 
  79.                                  void             *DoToField_StaticLink),
  80.                         void    *DoToField_StaticLink)
  81. {
  82.     (*DoToField) ("\pT%appname%App", NULL, bClass, DoToField_StaticLink);
  83.     %for each dialog gen DoToField%
  84.  
  85.     inherited::Fields (DoToField, DoToField_StaticLink);
  86. } /* Fields */
  87.  
  88. #endif
  89. /* %unitname% */
  90.